home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / SNGLWIRE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  10.9 KB  |  357 lines
  1. 10  'SNGLWIRE  26 MAY 95 rev. 29 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  U$="#,###.#"
  7. 70  PI=3.14159
  8. 80  DIM AWG(40)   'AWG sizes
  9. 90  DIM CF(11,2)  'centre frequency of each band
  10. 100  '
  11. 110  '.....load centre frequencies
  12. 120  DATA 1.8,1.9,3.75,7.15,10.125,14.175,18.118,21.225,24.94,28.85,29.7
  13. 130  FOR Z=1 TO 11:READ CF(Z,1):NEXT Z
  14. 140  '
  15. 150  '.....load AWG sizes
  16. 160  K=(0.46/0.005)^(1/39)    'increment multiplier
  17. 170  FOR Z=1 TO 40
  18. 180  N=Z+3
  19. 190  AWG(Z)=0.46/K^N
  20. 200  NEXT Z
  21. 210  '
  22. 220  '.....start
  23. 230  CLS:Y=0
  24. 240  COLOR 15,2
  25. 250  PRINT " SINGLE WIRE ANTENNA SYSTEM";TAB(57);"by George Murphy VE3ERP ";
  26. 260  COLOR 1,0:PRINT STRING$(80,223);
  27. 270  COLOR 7,0
  28. 280  '
  29. 290  '.....preface
  30. 300  OPEN"I",1,"\data\docfiles\antenna.doc"
  31. 310  IF EOF(1)THEN 330
  32. 320  INPUT#1,NOTE$:PRINT "   ";NOTE$:GOTO 310
  33. 330  CLOSE
  34. 340  PRINT UL$;
  35. 350  GOSUB 3080  'further notes
  36. 360  COLOR 15,1
  37. 370  LOCATE 25,22:PRINT " Press 1 to continue or 0 to EXIT.....";
  38. 380  COLOR 7,0
  39. 390  Z$=INKEY$:IF Z$=""THEN 390
  40. 400  IF Z$="0"THEN CLS:RUN EX$
  41. 410  IF Z$="1"THEN 430
  42. 420  GOTO 390
  43. 430  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  44. 440  GOTO 510
  45. 450  '
  46. 460  '.....format input line
  47. 470  USIN$="####.###":LOCATE CSRLIN-1:PRINT SPC(7);
  48. 480  LOCATE CSRLIN,47:PRINT SPC(7);USING USIN$;Z;
  49. 490  RETURN
  50. 500  '
  51. 510  '.....initial inputs
  52. 520  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  53. 530  INPUT " ENTER: LOWEST  operating frequency.............(MHz)";LF
  54. 540  Z=LF:GOSUB 460:PRINT " MHz (";
  55. 550  PRINT CINT(300/LF*10)/10;"m.)"
  56. 560  INPUT " ENTER: HIGHEST operating frequency.............(MHz)";HF
  57. 570  Z=HF:GOSUB 460:PRINT " MHz (";
  58. 580  PRINT CINT(300/HF*10)/10;"m.)"
  59. 590  PRINT UL$;
  60. 600  '
  61. 610  T=18
  62. 620  PRINT TAB(T);"Z  -     50 - coaxial transmission line from rig"
  63. 630  PRINT TAB(T);"C1, C2 - Transmatch variable tuning capacitors"
  64. 640  PRINT TAB(T);"L1 -     Transmatch variable inductor or tapped coil"
  65. 650  PRINT TAB(T);"A1 -     Single wire feedline to antenna"
  66. 660  PRINT TAB(T);"A2 -     End-fed single wire horizontal antenna"
  67. 670  PRINT UL$;
  68. 680  LN=CSRLIN-1
  69. 690  GOSUB 2640           'print diagrams
  70. 700  '
  71. 710  F=HF:N=1:GOSUB 2410  'calculate values at highest frequency
  72. 720  F=LF:N=2:GOSUB 2410  'calculate values at lowest frequency
  73. 730  GOSUB 2530           'print component values
  74. 740  GOSUB 3440           'screen dump option
  75. 750  '
  76. 760  '.....page 2
  77. 770  CLS
  78. 780  PRINT
  79. 790  PRINT TAB(20);"TYPICAL SETTINGS FOR ALL AMATEUR HF BANDS"
  80. 800  PRINT TAB(19);STRING$(43,205)
  81. 810  PRINT TAB(14);"CALL    FIG.1";TAB(34);"CALL    FIG.2";TAB(54);"CALL    FIG.3"
  82. 820  PRINT TAB(14);"CALL    C1 pF";TAB(26);"L1 >H";TAB(34);"CALL";
  83. 830  PRINT TAB(39);"C1 pF";TAB(46);"L1 >H";TAB(54);"CALL";
  84. 840  PRINT TAB(59);"C1 pF";TAB(66);"C2 pF";TAB(73);"L1 >H"
  85. 850  PRINT TAB(14);"CALL    SOUNDSOUNDSOUNDSOUNDSOUND  SOUNDSOUNDSOUNDSOUNDSOUND";TAB(34);"CALL";
  86. 860  PRINT TAB(39);"SOUNDSOUNDSOUNDSOUNDSOUND  SOUNDSOUNDSOUNDSOUNDSOUND";TAB(54);"CALL";
  87. 870  PRINT TAB(59);"SOUNDSOUNDSOUNDSOUNDSOUND  SOUNDSOUNDSOUNDSOUNDSOUND  SOUNDSOUNDSOUNDSOUNDSOUND"
  88. 880  '
  89. 890  '.....calculate component values for each band
  90. 900  N=3
  91. 910  FOR Y=1 TO 11
  92. 920  F=CF(Y,1)
  93. 930  GOSUB 2410    'calculate component values
  94. 940  GOSUB 2290    'print component values
  95. 950  NEXT Y
  96. 960  GOSUB 3440
  97. 970  '
  98. 980  '.....page 3
  99. 990  CLS:PRINT
  100. 1000  MG=7:PRINT TAB(MG);
  101. 1010  PRINT"The computer can help you design a multi-band tapped coil for Fig.3."
  102. 1020  PRINT TAB(MG);
  103. 1030  PRINT "Being what it is, it may locate two or more taps somewhere on the"
  104. 1040  PRINT TAB(MG);
  105. 1050  PRINT "same turn of the coil. A computer is very accurate, but it can also"
  106. 1060  PRINT TAB(MG);
  107. 1070  PRINT "be pretty impractical. Wherever it locates taps less than a turn"
  108. 1080  PRINT TAB(MG);
  109. 1090  PRINT "or two apart, just make a single tap somewhere between them. The"
  110. 1100  PRINT TAB(MG);
  111. 1110  PRINT "variable capacitors will hardly notice the differnce!"
  112. 1120  COLOR 15,1:LOCATE 12,8
  113. 1130  PRINT " Do you want to design a multi-band tapped coil for Fig.3?  (y/n) "
  114. 1140  COLOR 7,0
  115. 1150  Z$=INKEY$:IF Z$=""THEN 1150
  116. 1160  IF Z$="N"OR Z$="n"THEN 3410
  117. 1170  IF Z$="Y"OR Z$="y"THEN 1200
  118. 1180  GOTO 1150
  119. 1190  '
  120. 1200  '.....design coil
  121. 1210  CLS
  122. 1220  PRINT " Press number in < > to choose standard units of measure:"
  123. 1230  PRINT UL$;
  124. 1240  PRINT "   < 1 >  Metric"
  125. 1250  PRINT "   < 2 >  U.S.A./Imperial"
  126. 1260  Z$=INKEY$
  127. 1270  IF Z$="1"THEN UM=25.4:UM$="mm.":GOTO 1300
  128. 1280  IF Z$="2"THEN UM=1:UM$="in.":GOTO 1300
  129. 1290  GOTO 1260
  130. 1300  PRINT UL$;
  131. 1310  '.....input wire size
  132. 1320  PRINT " ENTER: Coil Wire Size -";
  133. 1330  PRINT " either AWG# (10 to 40) or diameter (";UM$;") ";
  134. 1340  INPUT WS
  135. 1350  IF WS<10 THEN W=WS/UM ELSE W=AWG(WS):W$="("+STR$(WS)+" AWG )"
  136. 1360  '.....compute coil diameter
  137. 1370  CLS
  138. 1380  D=0.1                    'initial diameter
  139. 1390  L=0.4*D                  'minimum length/diameter ratio
  140. 1400  U=CF(1,1)               'minimum inductance
  141. 1410  N=SQR(U*(18*D+40*L))/D  'number of turns @ minimum L/D ratio
  142. 1420  IF (N*2*W)>L THEN D=D+0.01:GOTO 1390  'where w=wire diameter
  143. 1430  OD=(D-W)*UM
  144. 1440  PRINT
  145. 1450  COLOR 0,7
  146. 1460  PRINT " COIL FORM O.D. SHOULD BE AS CLOSE TO";OD;UM$;" AS POSSIBLE."
  147. 1470  COLOR 7,0
  148. 1480  PRINT
  149. 1490  PRINT " Diameters much larger or smaller than this may produce";
  150. 1500  PRINT " unpredictable results,"
  151. 1510  PRINT " especially at the high and low ends of the HF frequency spectrum."
  152. 1520  PRINT
  153. 1530  PRINT " ENTER: Coil Form Diameter.........(";UM$;")";:INPUT Z
  154. 1540  FD=Z/UM      'diameter of coil form
  155. 1550  CLS
  156. 1560  PRINT TAB(26);"ALL-BAND TAPPED COIL FOR FIG.3"
  157. 1570  PRINT UL$;
  158. 1580  U$="#####.###"
  159. 1590  PRINT " Coil FORM diameter..................";USING U$;FD*UM;:PRINT " ";UM$
  160. 1600  PRINT " Coil WIRE diameter..................";USING U$;W*UM;:PRINT " ";UM$;
  161. 1610  PRINT W$
  162. 1620  D=FD+W
  163. 1630  PRINT " COIL diameter.......................";USING U$;D*UM;:PRINT " ";UM$
  164. 1640  LOCATE 11
  165. 1650  PRINT UL$;
  166. 1660  PRINT "   BAND";TAB(14);"FREQ.";TAB(27);">H";TAB(33);"TURNS &";
  167. 1670  PRINT TAB(41);"DISTANCE FROM INPUT END FOR EACH TAP"
  168. 1680  PRINT UL$;
  169. 1690  COLOR 0,7
  170. 1700  LOCATE CSRLIN-1,21:PRINT " ( L/D = Tap Length-to-Diameter ratio ) "
  171. 1710  COLOR 7,0
  172. 1720  '
  173. 1730  J=12        'set counter
  174. 1740  N=0         'set number of turns to 0
  175. 1750  FLAG=0      'set FLAG
  176. 1760  GOSUB 2140:PRINT "DEFDBL BAND EDGE DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  177. 1770  IF LG/D<0.4 THEN FLAG=1
  178. 1780  GOSUB 2140:PRINT "SOUNDCOLOR  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  179. 1790  GOSUB 2140:PRINT " <0xB4!>  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  180. 1800  GOSUB 2140:PRINT " <0xB4!>  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  181. 1810  GOSUB 2140:PRINT " <0xB4!>  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  182. 1820  GOSUB 2140:PRINT " TAPS   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  183. 1830  GOSUB 2140:PRINT " <0xB4!>  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  184. 1840  GOSUB 2140:PRINT " <0xB4!>  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  185. 1850  GOSUB 2140:PRINT " <0xB4!>  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  186. 1860  GOSUB 2140:PRINT "SOUND'  DEFDBL   DEFDBL   DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)"
  187. 1870  GOSUB 2140:PRINT "DEFDBL BAND EDGE DEFDBL (L/D =";USING"##.##";LG/D;:PRINT ":1)";
  188. 1880  J=0
  189. 1890  NN=INT(N)+1          'number of turns
  190. 1900  LG=NN*2*W*UM         'length of coil
  191. 1910  AMT=INT(PI*D*NN)+1   'amount of wire
  192. 1920  TU=D^2*NN^2/(18*D+40*LG)*UM
  193. 1930  LOCATE 5
  194. 1940  PRINT " Number of turns.....................";USING "#####";NN
  195. 1950  PRINT " Turn spacing........................";USING "#####.###";2*W*UM;
  196. 1960  PRINT " ";UM$;" c.c. (2 x wire diameter)"
  197. 1970  PRINT " Coil length.........................";USING "#####.##";LG;
  198. 1980  PRINT " ";UM$
  199. 1990  PRINT " Inductance of entire coil...........";USING "#####.##";TU;
  200. 2000  PRINT " >H"
  201. 2010  PRINT " Amount of wire required.............";USING "#####";AMT*UM;
  202. 2020  PRINT " ";UM$;" plus end leads (if any)"
  203. 2030  COLOR 15,4
  204. 2040  IF FLAG<>1 THEN 2090
  205. 2050  LOCATE 16,52:PRINT " Length/Diameter ratio (L/D) "
  206. 2060  LOCATE 17,52:PRINT " must not be less than 0.4:1 "
  207. 2070  LOCATE 21,52:PRINT " Run program again and select"
  208. 2080  LOCATE 22,52:PRINT " a smaller coil form diameter"
  209. 2090  COLOR 7,0:GOTO 3390    'end
  210. 2100  END
  211. 2110  '
  212. 2120  PRINT '************ sub-routines ************
  213. 2130  '
  214. 2140  '.....calculate coil taps
  215. 2150  J=J-1
  216. 2160  U=CF(J,2)        'required inductance at tap
  217. 2170  IF N=0 THEN N=1  'initial number of turns
  218. 2180  L=N*2*W
  219. 2190  UH=(D^2*N^2)/(18*D+40*L)
  220. 2200  IF UH<U THEN N=N+0.1:GOTO 2180
  221. 2210  PRINT USING "####.#";300/CF(J,1);:PRINT " m.";
  222. 2220  PRINT USING "####.###";CF(J,1);:PRINT " MHz.";
  223. 2230  PRINT USING "####.#";U;:PRINT " >H";
  224. 2240  PRINT USING "####.#";N;
  225. 2250  LG=N*W*2
  226. 2260  PRINT USING "#####.##";LG*UM;:PRINT " ";UM$;
  227. 2270  RETURN
  228. 2280  '
  229. 2290  '.....print component values for each band
  230. 2300  PRINT USING "###.###";F;:PRINT " MHz  CALL  ";
  231. 2310  PRINT USING "#######";C1A(N);
  232. 2320  PRINT USING "#####.#";L1A(N);
  233. 2330  PRINT TAB(31);"   CALL";
  234. 2340  PRINT TAB(37);USING "#######";C1B(N);
  235. 2350  PRINT USING "#####.#";L1B(N);
  236. 2360  PRINT TAB(54);"CALL";
  237. 2370  PRINT TAB(57);USING "#######";C1C(N);C2C(N);
  238. 2380  PRINT USING "#####.#";L1C(N)
  239. 2390  RETURN
  240. 2400  '
  241. 2410  '.....calculate
  242. 2420  C1A=1/(2*PI*F*225)*10^6: C1A(N)=INT(C1A)
  243. 2430  L1A=480/(2*PI*F):        L1A(N)=INT(L1A*10)/10
  244. 2440  '
  245. 2450  C1B=1/(2*PI*F*480)*10^6: C1B(N)=INT(C1B)
  246. 2460  L1B=480/(2*PI*F):        L1B(N)=INT(L1B*10)/10
  247. 2470  '
  248. 2480  C1C=1/(2*PI*F*225)*10^6: C1C(N)=INT(C1C)
  249. 2490  C2C=1/(2*PI*F*300)*10^6: C2C(N)=INT(C2C)
  250. 2500  L1C=400/(2*PI*F):        L1C(N)=INT(L1C*10)/10:CF(Y,2)=L1C
  251. 2510  RETURN
  252. 2520  '
  253. 2530  '.....print component values
  254. 2540  B=27:C=54
  255. 2550  PRINT        " C1 =";C1A(1);"-";C1A(2);"pF";
  256. 2560  PRINT TAB(B);"CALL  C1 =";C1B(1);"-";C1B(2);"pF";
  257. 2570  PRINT TAB(C);"CALL  C1 =";C1C(1);"-";C1C(2);"pF"
  258. 2580  PRINT TAB(B);"CALL";TAB(C);"CALL  C2 =";C2C(1);"-";C2C(2);"pF"
  259. 2590  PRINT        " L1 =";L1A(1);"-";L1A(2);">H";
  260. 2600  PRINT TAB(B);"CALL  L1 =";L1B(1);"-";L1B(2);">H";
  261. 2610  PRINT TAB(C);"CALL  L1 =";L1C(1);"-";L1C(2);">H";
  262. 2620  RETURN
  263. 2630  '
  264. 2640  '.....diagrams
  265. 2650  LOCATE LN,27:PRINT "FN":LOCATE LN,54:PRINT "FN"
  266. 2660  CO=1
  267. 2670  LOCATE LN+ 1,CO:PRINT " A1+A2= DEFSTR wavelength or "
  268. 2680  LOCATE LN+ 2,CO:PRINT "        odd multiple    "
  269. 2690  COLOR 0,7
  270. 2700  LOCATE LN+ 3,CO:PRINT " FIG.1                    "
  271. 2710  LOCATE LN+ 4,CO:PRINT "            /BSAVESOUNDSOUNDSOUNDA2SOUNDSOUNDSOUNDSOUNDSOUND/ "
  272. 2720  LOCATE LN+ 5,CO:PRINT "        L1   A1           "
  273. 2730  LOCATE LN+ 6,CO:PRINT " ZVARPTRSOUNDSOUNDBSAVESOUNDSOUNDORORORSOUNDSOUND'DEFSNG- Low-Z    "
  274. 2740  LOCATE LN+ 7,CO:PRINT "THENFNLOAD THENINSTRTHEN C1                "
  275. 2750  LOCATE LN+ 8,CO:PRINT " CLSSOUNDSOUNDSOUND<0xB4!>                    "
  276. 2760  LOCATE LN+ 9,CO:PRINT "   \\MOTOR\\earth ground      "
  277. 2770  COLOR 7,0
  278. 2780  '
  279. 2790  CO=27
  280. 2800  LOCATE LN+ 1,CO:PRINT "CALL A1+A2= RENUM wavelength or  "
  281. 2810  LOCATE LN+ 2,CO:PRINT "CALL        multiple         "
  282. 2820  COLOR 0,7
  283. 2830  LOCATE LN+ 3,CO:PRINT "CALL FIG.2                    "
  284. 2840  LOCATE LN+ 4,CO:PRINT "CALL             /BSAVESOUNDSOUNDSOUNDA2SOUNDSOUNDSOUNDSOUND/ "
  285. 2850  LOCATE LN+ 5,CO:PRINT "CALL       L1     A1          "
  286. 2860  LOCATE LN+ 6,CO:PRINT "CALL ZVARPTRSOUNDSOUNDSOUNDSOUNDORORORSOUNDSOUNDSOUNDSOUND<0xB4!>DEFSNGSOUND Hi-Z    "
  287. 2870  LOCATE LN+ 7,CO:PRINT "CALLTHENFNLOAD          THENINSTRTHEN C1       "
  288. 2880  LOCATE LN+ 8,CO:PRINT "CALL CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>           "
  289. 2890  LOCATE LN+ 9,CO:PRINT "CALL       earth\\MOTOR\\ground   "
  290. 2900  COLOR 7,0
  291. 2910  LOCATE LN+10,CO:PRINT "CALL                          "
  292. 2920  '
  293. 2930  CO=54
  294. 2940  LOCATE LN+ 1,CO:PRINT "CALL A1+A2= any random length"
  295. 2950  LOCATE LN+ 2,CO:PRINT "CALL                         "
  296. 2960  COLOR 0,7
  297. 2970  LOCATE LN+ 3,CO:PRINT "CALL FIG.3                    ";
  298. 2980  LOCATE LN+ 4,CO:PRINT "CALL             /BSAVESOUNDSOUNDSOUNDA2SOUNDSOUNDSOUNDSOUND/ ";
  299. 2990  LOCATE LN+ 5,CO:PRINT "CALL    C1    C2  A1          ";
  300. 3000  LOCATE LN+ 6,CO:PRINT "CALL ZVARPTRSOUNDSOUNDUSINGSOUNDSOUNDBSAVESOUNDSOUNDUSINGSOUNDSOUND'DEFSNG- unknown ";
  301. 3010  LOCATE LN+ 7,CO:PRINT "CALLTHENFNLOAD    OROROR           Z    ";
  302. 3020  LOCATE LN+ 8,CO:PRINT "CALL CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>L1               ";
  303. 3030  LOCATE LN+ 9,CO:PRINT "CALL      \\MOTOR\\earth ground   ";
  304. 3040  COLOR 7,0
  305. 3050  LOCATE LN+10,CO:PRINT "CALL                         "
  306. 3060  RETURN
  307. 3070  '
  308. 3080  '.....foreword
  309. 3090  T=8
  310. 3100  PRINT TAB(T);
  311. 3110  PRINT "The program designs a complete system including a Transmatch and"
  312. 3120  PRINT TAB(T);
  313. 3130  PRINT "calculates component values for three configurations:"
  314. 3140  PRINT
  315. 3150  PRINT TAB(T);
  316. 3160  PRINT "FIG.1 and FIG.2 are best for monoband antennas, requiring only one"
  317. 3170  PRINT TAB(T);
  318. 3180  PRINT "inductor (which may not need to be variable or tapped for the"
  319. 3190  PRINT TAB(T);
  320. 3200  PRINT "higher frequency bands) and one variable tuning capacitor. FIG.3 is"
  321. 3210  PRINT TAB(T);
  322. 3220  PRINT "a random-wire multi-band antenna which requires one variable or"
  323. 3230  PRINT TAB(T);
  324. 3240  PRINT "tapped inductor and two variable tuning capacitors."
  325. 3250  PRINT
  326. 3260  PRINT TAB(T);
  327. 3270  PRINT "The wire can be any length within the parameters shown from a short"
  328. 3280  PRINT TAB(T);
  329. 3290  PRINT "whip to a true long wire, however, due to the variable conditions"
  330. 3300  PRINT TAB(T);
  331. 3310  PRINT "noted above, the Transmatch control settings calculated by this"
  332. 3320  PRINT TAB(T);
  333. 3330  PRINT "program should be considered as approximate only."
  334. 3340  PRINT
  335. 3350  PRINT TAB(T);
  336. 3360  PRINT "(Ref. ARRL Electronics Data Book, 1st Edition, page 71)";
  337. 3370  RETURN
  338. 3380  '
  339. 3390  '.....end
  340. 3400  GOSUB 3440
  341. 3410  GOTO 220   'start
  342. 3420  END
  343. 3430  '
  344. 3440  'HARDCOPY
  345. 3450  GOSUB 3560:LOCATE 25,2:COLOR 14,6
  346. 3460  PRINT " Press 1 to print screen, 2 to print screen & ";
  347. 3470  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  348. 3480  Z$=INKEY$:IF Z$="3"THEN GOSUB 3560:RETURN
  349. 3490  IF Z$="1"OR Z$="2"THEN GOSUB 3560:GOTO 3510
  350. 3500  GOTO 3480
  351. 3510  FOR QX=1 TO 24:FOR QY=1 TO 80
  352. 3520  LPRINT CHR$(SCREEN(QX,QY));
  353. 3530  NEXT QY:NEXT QX
  354. 3540  IF Z$="2"THEN LPRINT CHR$(12)
  355. 3550  GOTO 3450
  356. 3560  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  357.